home *** CD-ROM | disk | FTP | other *** search
/ Microsoft Internet Strate…Tools for the Enterprise / Microsoft Internet Strategy & Tools for the Enterprise.iso / content / devel.tls / icp / vbsamp / qukmail.exe / FRMALIAS.FRM (.txt) < prev    next >
Visual Basic Form  |  1996-03-07  |  3KB  |  99 lines
  1. VERSION 4.00
  2. Begin VB.Form frmAddAlias 
  3.    Caption         =   "Add Alias To New/Existing Group..."
  4.    ClientHeight    =   1560
  5.    ClientLeft      =   1950
  6.    ClientTop       =   1620
  7.    ClientWidth     =   5250
  8.    Height          =   1965
  9.    Icon            =   "frmAlias.frx":0000
  10.    Left            =   1890
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   1560
  13.    ScaleWidth      =   5250
  14.    Top             =   1275
  15.    Width           =   5370
  16.    Begin VB.CommandButton cmdDone 
  17.       Cancel          =   -1  'True
  18.       Caption         =   "Done"
  19.       Height          =   345
  20.       Left            =   3990
  21.       TabIndex        =   5
  22.       Top             =   570
  23.       Width           =   1095
  24.    End
  25.    Begin VB.TextBox txtAlias 
  26.       Height          =   285
  27.       Left            =   1080
  28.       TabIndex        =   3
  29.       Top             =   570
  30.       Width           =   2685
  31.    End
  32.    Begin VB.CommandButton cmdAdd 
  33.       Caption         =   "&Add Alias"
  34.       Height          =   345
  35.       Left            =   3990
  36.       TabIndex        =   4
  37.       Top             =   150
  38.       Width           =   1095
  39.    End
  40.    Begin VB.TextBox txtGroup 
  41.       Height          =   285
  42.       Left            =   1080
  43.       TabIndex        =   1
  44.       Top             =   180
  45.       Width           =   2685
  46.    End
  47.    Begin VB.Label Label1 
  48.       AutoSize        =   -1  'True
  49.       Caption         =   "A&lias Name:"
  50.       Height          =   195
  51.       Index           =   1
  52.       Left            =   180
  53.       TabIndex        =   2
  54.       Top             =   630
  55.       Width           =   840
  56.    End
  57.    Begin VB.Label Label1 
  58.       AutoSize        =   -1  'True
  59.       Caption         =   "Group Name:"
  60.       Height          =   195
  61.       Index           =   0
  62.       Left            =   90
  63.       TabIndex        =   0
  64.       Top             =   240
  65.       Width           =   945
  66.    End
  67. Attribute VB_Name = "frmAddAlias"
  68. Attribute VB_Creatable = False
  69. Attribute VB_Exposed = False
  70. Option Explicit
  71. Private Sub cmdAdd_Click()
  72.     Dim msg As String
  73.     Select Case True
  74.     Case InStr(1, txtGroup.Text, """") > 0
  75.         msg = "Group Name may not contain quotes."
  76.     Case InStr(1, txtAlias.Text, """") > 0
  77.         msg = "Alias Name may not contain quotes."
  78.     Case Trim(txtGroup.Text) = ""
  79.         msg = "Group Name is invalid."
  80.     Case Else
  81.         Call AddAliasToDatabase(frmBulkMail.Addresses, txtGroup.Text, txtAlias.Text)
  82.         Call AddAliasToTree(frmBulkMail.Tree, txtGroup.Text, txtAlias.Text)
  83.         Exit Sub
  84.     End Select
  85.         
  86.     MsgBox msg, vbOKOnly + vbInformation
  87. End Sub
  88. Private Sub cmdDone_Click()
  89.     Unload Me
  90. End Sub
  91. Private Sub txtAlias_GotFocus()
  92.     txtAlias.SelStart = 0
  93.     txtAlias.SelLength = Len(txtAlias.Text)
  94. End Sub
  95. Private Sub txtGroup_GotFocus()
  96.     txtGroup.SelStart = 0
  97.     txtGroup.SelLength = Len(txtGroup.Text)
  98. End Sub
  99.